100 REM***** LISTING 4/1 *****
103 :
105 DATA KLINGE G,MAYER H,HUEBNER A,SCHRAMM K,HAUCK H
110 DATA MAYER D,WAENGLER A,ROEDER T,ABSMEIER A,SCHNEIDER B,@
112 :
115 DIM A$(20)
117 :
120 J=J+1
125 READ A$(J)
130 IF A$(J)<>"@" THEN 120
132 :
135 FOR K=1 TO J-2
140   IF A$(K) <= A$(K+1) THEN 180
143 :
145   B$=A$(K)
150      A$(K)=A$(K+1)
155            A$(K+1)=B$
157 :
160    FOR I=1 TO J-1:PRINT A$(I)
165    NEXT I:PRINT
167 :
170   GET G$:IF G$="" THEN 170
175   K=K-1:GOTO 140
180 NEXT K
185 END